home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Windows Selection / Windows Selection 1.iso / Graphics / Formula Graphics Multimedia System / OBJECTS.SXT < prev    next >
Encoding:
Text File  |  1996-03-18  |  1.6 KB  |  56 lines
  1. //////////////////////////
  2. // Harrow Software 1996
  3. // Object examples
  4.  
  5. //////////////////////////
  6. // (1) Copy an object
  7.  
  8. object_one = new struct
  9. $object_one.name = "Edward\n"
  10. object_two = copy object_one
  11. message $object_two.name
  12.  
  13. //////////////////////////////
  14. // (2) Test for a valid object
  15.  
  16. object_one = new struct
  17. if valid object_one then message "The object is valid"
  18. else message "The object is not valid"
  19.  
  20. free object_one
  21. if valid object_one then message "The object is valid"
  22. else message "The object is not valid"
  23.  
  24. object_one = new struct
  25. object_two = object_one
  26. if valid object_two then message "The object is valid"
  27. else message "The object is not valid"
  28.  
  29. //////////////////////////////
  30. // (3) Comparing two objects
  31.  
  32. message "\nCompare the same object"
  33.  
  34. object_one = new struct
  35. object_two = object_one
  36. if @object_one == @object_one then message "Two objects are equal"
  37. if @object_one != @object_one then message "Two objects are not equal"
  38.  
  39. message "\nCompare different objects"
  40.  
  41. object_two = new struct
  42. if @object_one == @object_two then message "Two objects are equal"
  43. if @object_one != @object_two then message "Two objects are not equal"
  44.  
  45. message "\nCompare assigned objects"
  46.  
  47. object_two = object_one
  48. if @object_one == @object_two then message "Two objects are equal"
  49. if @object_one != @object_two then message "Two objects are not equal"
  50.  
  51. message "\nCompare copied objects"
  52.  
  53. object_two = copy object_one
  54. if @object_one == @object_two then message "Two objects are equal"
  55. if @object_one != @object_two then message "Two objects are not equal"
  56.